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i ENVIRONMENT: Runs at any access mode - AST reentrant 
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, AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
; MODIFIED By: 
: 1-001 - Original. DJS 30-JAN-1981. This nod 
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1 ZTITL cers uni ye - write to a file’ 
§ MODULE EDTSLWRITE ( ! Write to a file 
i ; om = *'v04-000' ' File: LWRITE.BLI Edit: JBS1058 | 
= 
7 BEGIN 
$ } i peeeeeeeererererrererereeeeeeeeeteeeeeeeeerereeeeeeeeereeeenereneeenteneeeee | 
‘@ ® j 
§ 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 8 ® 
19 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
: Y} : ” ALL RIGHTS RESERVED. * 
‘@ & 
ig 1 1 !* THIS SOFTWARE IS tt oa UNDER A LICENSE AND MAY BE USED AND og La * | 
14 14 1 !* ONLY IN ACCORDANCE WITH THE ot OF SUCH biCenSe AND WITH THE * 
15 15 1 !* INCLUSION OF THE ABOVE pid NOTICE. THIS SOFTWARE OR ANY OTHER * 
HY 1$ 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 1 1 !'* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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.* ® 
0 1! He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
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' 
0 0030 1 
1 0031 1 !e¢ 
§ 4 § : ' FACILITY: EDT -- The DEC Standard Editor 
‘ 0035 i ABSTRACT: 
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IMPLICIT OUTPUTS: 
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EDT$$G_WRITE_MSG 

EDT$$G_ABT_WRITE 
ROUTINE VALUE: 


9 = no write took place 
= file written successfully 
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“Vei=b80 GRITE FILE - write on a file 12780871382 9:93:28 DEEKSUMGHASTERSCEOT SRCSLURITE.BLI;1 . (3) 
is *@ 764 1 XSBITL ‘WRITE_FILE = write on a file’ 

; .% 765 1 ROUTINE WRITE_FILE ( ! Write on a file 

; (le. 168 1 RANGE, ! Range to write 

: be 4 : cMECK ! Do consistency checking and file name defaulting 

: 1% ree 

s 171 770 «(1 ie | 

176 Ore ! FUNCTIONAL DESCRIPTION: : 

; 176 773 1! This routine is used by the WRITE and EXIT commands to write 

Bb te 0774 1! an output file. The /SEQ switch determines whether sequence 

: 176 Ae : } numbers should be written. 

r} 178 re ! FORMAL PARAMETERS: 

; 130 718 ; RANGE the range block for the range to be written. 

: 1% O78; 1: CHECK a ohep indicating that the consistency check should be done 

; 18 34-04 1! (set if we are pi. 5 clear otherwise). Also permits defaulting 

; is 4+ } of the file name to the output or input file name. 

; 182 0785 1 ! IMPLICIT INPUTS: 

; 14 0786 1! 

i | are 1! EDTS$$G_OUT_NAMLEN 

: 189 788 1! EDTSSA_OUT_NAM 

: 190 1434 1! EDT$$G_INP_NAMLEN 

: «6191 790 1! EDTSSA_INP 

: 136 0791 1! EDTS$V_OPTIONS 

; #19 792 1! EDTSSA_CUR_BUF 

7 194 79 } ‘ EDTS$L_10_ DF CHD 

; #195 794 ! EDTSS$L_LNO_ZERO 

: 196 3732 1! EDTS$L_LNOO 

s 197 796 1! EDTSSA_FMT_CUR 

; 198 797 1! EDTS$T_FMT_BUF 

; 199 798 1! EDTS$G_FMT_LNPOS 

: 200 799 1! EDTSS$L_LNO VFC 

: 201 00 1! EDTS$SA_Wk_CN 

3 4 801 1! EDTSS$A_SUARY 

; 2 a8 1! ED TSSA EXE -CURCED 

3; 204 1! EDTS$G_EXE_SBITS 

: 205 046 1! ep Teez ex SBLK 

; 206 0S 7! DT$$G_WRITE_MSG 

: 7 06 1 } EDT$$G_ABT_WRITE 

1} 

; 1: 

3 , 

: 1! 

3 1! 

: 1! 

3 1! 

: 1! 

. 1: 

4 13 

4 1! 

. 1 i 

: 1 i 
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Types an error message if the file is not preserts written. 
If the consistency check fails, arranges to save the journal file. 
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' Put a character in the format buffer 
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! Print a file 1/0 error 
ZIF ZBLISS (BLISS32) 
ZTHEN 
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deallocates dynamic descriptors 
ZELSE 
EXTERNAL ROUTINE 
EDTSSGET_FNAM; 


EXTERNAL 
EDT$$G_INP_NAMLEN, 
EXTE 


Length of input file name 
Address of input file name 
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Terminal's width 
1 = abort output 
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EDT$$G-SAV-T1WID 
EDT$$G_MESSAGE_LINE, 
DT$$A~10_FNAM; 
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$$G_OUT_NAMLEN, 


$G"RNG-FRSTLN 

2=RNG-ORIGPOS : POS BLOC 
“OPTIONS : BITVECTOR (323, 
=CUR BUF : REF TBCB_BLOCK, 
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BEGIN 

exveom ROUT INE 
EDTSSSC_SETWID ! Reset terminal width 
EDT$$SC~POSCSIF, i Absolute -ursor positioning 
EDTSSSTOP_WKINGMSG, ! Stop work ing message 
EDTSSCHK CC, ! check for CONTROL/C typed 
EDTSSL 
EDTSS 
EDTS$ 
EDTS 
EDT 
EDT 
EDT 
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FILE = write on a file 
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UR 
=LNPOs, 
BUF. 


SUPPORT WPS 
EDTSS$G_SUMRY, 


LN, 
CN : REF 
“CURCMD 


se 
TTE_MSG; 


-“~ ene a 
-2 commmem 
oo Trin 
menere 
a 
an 
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: BLOCK 
RHB_BESC : BLOCK 
BLOCK 


NAME , 
NAME_LEN, 
*: LN_BLOCK, 


SEQ” NUM 
SEQ-INCR; 
XBLISS (BLISS32) 


scee 


BLOCK, 


: LNOVECTOR [14], 


he 


: Aer NODE “BLOCK, 


8, BYTE], 
cb, er ented, 


: LN_BLOCK, 


: REF NODE_BLOCK, 


p-1984 
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73 VAX-11 Bliss-32 V 
Hn 9}: 9 i$ DISK KSVMSMASTER: tt 
powers of ten 
current position in format buffer 


address of format buffer 


flag indicating whether to type out summary 


Pointer to the current command. 

The options switches 

The sotres switch yelue block 

Set to 1 if control C actually aborts something 
to print; 1 = no message 


File close message 

File open message 

code for what kind of open 

code for which kind of file 
descriptor for file name 
descriptor for header info 
descriptor for puts 

Status of open or close attempt 
Number of Lines written, 

Number of characters written 
File name string 
File name string 
Holds rofeoer reoult. from division 
48-bit Line number 

Flag lndlcetion sequenced 

Current sequence number 

Sequence number increment 
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FILSPC, NOFILWRT, CONCHKFLD, ERROUTFIL, WRIFILCRE, OUTFILCRE, SEQNUMOV, SEQINCROV, OUTFILCL 


3 | 


vO 
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H 1 
| EDTSLWRITE EDTSLWRITE - write to a file 16-Sep-1984 01:03:3 VAX-11 Bliss-32 V4.0-74 Pa 7 
Toc sboo ORITE FILE - write on a file 15-$60- 1 388 ee DIEKSVMGHASTERSCEDT SRCSLURITE.BLI:1 = (3) | 
; 9 5 : Position to the front of the range. 
§ 9 5  EDT$$G_RNG_FRSTLN = 1; 
, 8 EDTSSCPY_MEM (POS_SIZE, -EDTSSA_CUR_BUF, EDTS$Z_RNG_ORIGPOS); 
4) Bey IF ( NOT EDTSSRNG_REPOS (.RANGE)) THEN RETURN (0); 
4 ars '+ 
rf: eer Check for an explicit file specification. 


° 

‘ 

| 

| 

: 

; 945 | 

3 208 IF (.EDTSSA_EXE_CURCMD CFSPCLEN] NEQ 0) 

: 348 94 THEN | 

; 349 B28 BEGIN 

; 350 94 NAME = .EDTSSA EXE_CURCHD CFILSPECI; 

3; 351 0950 NAME_LEN = .EDTSSA_EXE_CURCMD CFSPCLENI; 

; 28 0951 END; 

i 384 0988 5 1 

3 32 bee If no file name is specified and this is EXIT, use the output file name. 

: 357 0956 2 

3 $39 3230 IF ((.CHECK NEQ 0) AND (.NAME_LEN EQL 0)) 

3 59 R28 THEN 

; 5360 095 BEGIN 

; 1 0960 NAME = .EDTSS$A_OUT_NAM; 

3 ¢ 0961 NAME_LEN = .EDTS$$G_OUT_NAMLEN; | 

3 4494 END; | 

: 365 O96, 5 ts | 

; 366 0965 i On VMS, because of search lists, it is possible for an input open to resolve 

; 7 2966 i to a different étrectory than an output open with the same file name. Therefore, 

; 096 ! if we want the output file to be returned to the same directory as the input file 

; 0968 ! we must depend on using the resultant file name from the input open to specify 

; 4: +444 } yoere to put the output file, rather than being able to just re-use the input 

3 : e name. 

3 7 0971 ! At this point we reject the file os hy ay enty if it is empty and either 

: 7 44 this is a WRITE command or /NOOUTPUT has been specified (or implied by /READ_ONLY). 

: 375 0974 2 

; 4 | 446 Uf} MANE LEM EQL 0) AND ((.CHECK EQL 0) OR ((.EDTSS$V_OPTIONS AND EDTSM_NOOUTPUT) NEQ 0))) 

: 378 97 BEGIN 

; 379 ze EDTSSFMT_MSG (EDTS_NOFILSPC); 

; 380 97 RETURN (0); 

: 1 980 END; 

‘ ; st ‘+ 

; 384 983 i ppP-11 systems do not have search Lists, so we can use the input file name if the 

; 385 984 ! output name is empty. Doing this simplifys the process of constructing the printable 

3 a6 5 ! form of the name for the summary message. 

4 rH 9 != ] 

: 389 L O988 3 E1F ( NOT XBLISS (BLISS32)) 

3 mY u 9 ; THEN 

: 392 U 0991 If (.NAME_LEN EQL 0) | 
| 
| 
| 
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ate WRITE FILE - write ona file 1 ~3007 138% 93:93:78 NIEKSUMGHASTERSCEOT SRCSLURITE-BLI;1 9 03) 

: 393 U 933 THEN ; 
: $94 u 099 BEGIN ; 
: 395 U 0994 NAME = .EDTSSA_INP_NAM; ; 
; 96 U 0995 NAME_LEN = .EDT$$G~INP_NAMLEN; ; 
: 398 U 099 
: 399 998 “FI 3 
ars 1000 1+ ; 
: 40 1901 i Check for the /SEQ option. : 
: $02 1908 5 ; 
: 405 1994 LF (SEQ = .EDT$$G_EXE_SBITS<OPB_SEQ>) ; 
: 497 1006 a BEGIN 3 
: rst 4 INNS ! Determine the actual sequence start and increment by reducing them by 10**5 : 
: oH eg seo-tuer = 6 
6 = ° - 
; 418 1018 ss MOVELINE (EDT$$Z_EXE_SBLK CSW_VAL1], LINNO); ! Starting Value ; 
: 615 1014 i Error checks for sequence number and increment (must be less than 65536) ; 
Sigeesiiek : 
: 618 1017 4 IF (CMPLNO (LINNO, EDTS$SL_LNO_VFCMAX) GTR 0) : 
: £20 1019 i THEN EGIN : 
> 421 1020 4 EDTSSFMT_MSG (EDT$_SEQNUMOV); : 
: 4 2 1021 5 RETURN (0) : 
: : 4 19 : ; . ; 
: 425 1024 DECR I FROM 9 TO 5 DO ; 
> 426 1025 4 BEGIN : 
: 427 1026 4 SEQ_NUM = .SEQ_NUM*10; ; 
> 428 1027 4 EDTSSLDIV (LINNO, DIGIT, .1); ; 
> 429 1028 4 SEQ_NUM = .SEQ_NUM + .DIGIT; ; 
: ¢ 1 1980 ' ; 
: 43¢ 1051 MOVELINE (EDT$$Z_EXE_SBLK [SW_VAL2], LINNO); ' Increment ; 
> 434 1088 IF (CMPLNO (LINNO, EDTS$L_LNO_VFCMAX) GTR 0) ; 
: 436 1035 EN aEGIN 
6 19 6 4 SEO EMT MSG (EDT$_SEQINCROV); ; 
: 438 10 RETURN (0) F 
: rH 18 3 : : 
+ 641 1049 DECR 1 FROM 9 TO 5 DO ; 
> bb 1041 4 BEGIN ; 
: bh 1 42 4 SEQ INCR = ,SEQ_INCR*10; : 
: 6646 1 4 EDTSSLDIV (LINNO, DIGIT, .1); 3 
+ 445 1044 4 SEQ_INCR = .SEQ_INCR + .DiGIT; ; 
: bb 1045 4 END ; 
3; 44 Hg 4 3 
; 668 1 § END; 3 
+ 649 1048 F 
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a ett ORITE FILE - write on a file 1 ~3007 138% 93:93:38 NEKSUMGHASTERSCEDT SRCSLURITE.BLIs1 9° (3) v0 
; 450 1 ‘+ : 
3 : } é ! Try to open the file and set up file specific messages ; 
: 6 1 ; : 
: 454 1 g IF (.CHECK EQL 0) ; 
: 455 1054 THEN ; 
3; 6 4 1055 BEGIN 3 
; 4 1 $ FILESTRM = EDTSK_WRITE_FILE; : 
; 458 1 CLOSEMSG = EDT$ QRIFILCLO; : 
: 459 1 38 OPNMSG = EDTS_WRIFILCRE; : 
: oe? 196 esee 
: 46 1 ; BEGIN 
: 46 106¢ FILESTRM = EDTSK_OUTPUT_FILE; 
+ 464 106 CLOSEMSG = EDT$ OUTFILCCO; 
: 465 1064 OPNMSG = EDTS$_OOTFILCRE; 
; 466 1065 ND; 
; 468 1987 IF (SEQ NEQ 0) THEN FILECODE = EDTSK_OPEN_OUTPUT_SEQ ELSE FILECODE = EDT$K_OPEN_OUTPUT_NOSEQ; 
: 470 1069 STRING_DESC (FILE DESC, NAME_LEN, .NAME); 
; 7) 1070 STATUS-= EDTSSCALCFIO (.FILECODE, .FILESTRM, FILE_DESC, RHB_DESC); 
$ 47 1078 IF .STATUS 
ees: 1o92 THEN GIN 
; 476 1075 MOVEL INE (EDTSSL_LNO_ZERO, L_COUNT); 
Py = U; 
; 478 1977 EBT$$G_ABT_WRITE = 0; 
: 480 1079 WHILE (EDTSSNXT_LNRNG (0) AND (.EDTS$A_WK_LN NEQA EDT$$Z_EOB_LN) AND ( NOT .EDT$$G_ABT_WRITE)) DO 
Cee Se 
: 48 1086 4 | Check for a CONTROL/C. If one has been typed abort the write operation. 3 
Pesta! Boy 
> 486 1085 4 IF EDTSSCHK_CC () : 
: ths 1oB? THEN GIN 
> 489 1088 & EDT$$G_CC_DONE = 1; 
: 490 1089 5 EDT$$G_ABT_WRITE = 1; 
: 433 1991 2 evse™ 
: 498 1092 2 BEGIN 
: 4695 1094 i Set up the RHB if /SEQ was used. 
en ee 
> 498 1 39 IF (.SEQ NEQ 0) 
: 499 1098 THEN 
: 501 11 IF (.EDT$$Z_EXE_SBLK CSEQ_VAL) EQL 0) 
3 508 1% 1 “A THEN 
; 11 § i Jf no sequence start was given. then use the buffer's current Line 
Z 28? 1138 ' mumbers in the VFC field (/SEQ ) 
3; 506 1105 te 
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EDTS$G_ABT_WRITE = 1; 


$ 
T 
: 1163 6 
| Ne § 3 
; e9 1198 £ ELSE 
> 96 1167 6 BEGIN 
3 28 1168 6 !+ 
3 4 1192 ? Count Lines and characters for consistency check. 
3 Rf 1171 6 rage) (NUMBER ONE, L cour) 
oe 1306 g C_COUNT = .C_COONT + .EDTSS$A_ bx LN CLIN_LENGTHI; 
> 574 117 ND; 
: af? 1174 5 
: 6 1175 4 END; 
: ef 1328 4 
s Sry 1178 
; 280 1179 + 
; 581 1180 i watch for the write abort flag, which can be set Ce we have an error on the input file, 
3 28¢ 1181 ; 7 control C or by an error writing the output file 
3; 3 1136 
3; 584 118 
; 585 1184 IF .EDT$$G_ABT_WRITE 
> 586 1185 THEN 
; 587 1186 4 BEGIN 
: H+ yt : STATUS = EDTSSCALLFIO (EDTSK_CLOSE_DEL, .FILESTRM, FILE_DESC, 0); 
: rh Ht 34 2 IF ( NOT .STATUS) THEN EDTSSFIOPN_ERR (.CLOSEMSG, FILE_DESC); 
3 236 1191 4 EDTSSFMT_MSG (EDTS_NOFILWRT); 
3; 3 1136 4 
; 594 L 11935 4 ZIF XBLISS (BLISS32) 
3 399 1194 4 XTHEN 
; 596 1195 4 STRSFREE1_DX (FILE_DESC); 
s 397 1196 4 &FI 
; 598 1197 4 
; 599 1198 4 RETURN (0); 
; 600 1199 END; 
; 601 1200 
3 one 1201 '¢ 
; 6 1 4 1° the consistency check. 
; 604 120 
; 605 1204 
3; 606 1205 4 IF (,. CHECK NEQ 0) 
3 pet 1 86 ; THEN 
; 608 1 
; 609 1208 4 IF ( NOT (LINNOEQL (L_COUNT, EDTSS$A_CUR_BUF CTBCB LINE COUNT)» OR ! 
3 ei? ' 3 -C_COUNT NEQ .EDTSSA_ COR BUF CTBCB-CHAR_COUNT))) 
: o1¢ 1211 4 ale 
; 61 1212 4 SFMT_MSG FoTS_¢ GONCHEELD) ; 
; 614 1213 4 ores G_ERE Seal ="(,EDT$$G_EXE_SBITS OR OPT_SAVE); 
3; 6615 1214 D; 
; 616 1215 
; 61 1 16 '¢ 
; «4618 121 i Close the output file and print a message giving number of Lines written 
3; 619 1278 ' to the file. 
; 620 1219 ie | 


M 
Bett: IERESSH QUBERY WDMARALERE St artes.0™ 
| 


| ' 
EDTSLWRITE EDTSLWRIT 
Oa 000 WRITE _FIL 
621 
? ¢ IF (.EDTSSG_EXT_MOD) THEN EDTSSSTOP_WKINGMSG (); 
e ¢ STATUS = EDTSSCALLFIO (EDTSK_CLOSE, .FILESTRM, FILE_DESC, 0); 
6 § IF .STATUS 
6 HEN 
? $ ce BEGIN 
630 i Reset the screen width on EXIT if necessary. If the screen was reset, then 
2 1 reposition the cursor at the bottom of the screen. 
6 : ; 
634 IF (. CHECK NEQ 0) 
? 5 THEN 
6 IF (.EDTS$SG_TI_WID NEQ .EDT$$G_SAV_TIWID) 
6 THEN 
63 BEGIN 
EDTSS$SC_SETWID (.EDT$$G_SAV_TIWID); 
Eesavenar weveet (EDT$$G_MESSAGE_LINE, 0); 


‘+ 
! Print a message if one is requested. This will be the ‘input file does not have standard format’ 
message deferred because we thought the user was never going to write the buffer. 


IF (.EDTS$G_WRITE_MSG NEQ 1) 
THEN 


BEGIN 
1b sry MSG 


(.EDT$$G_WRITE_MSG); 
EDTSSG_WRITE_MSG = 1; 
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L ZIF SUPPORT_WPS 
XTHEN 
IF .EDT$$G_SUMRY 
THEN 
XFI 
BEGIN 
664 '¢ 
665 ! Extract the resultant filename of the opened file and format 
$66 $3 ! it to write out if the summary flag is set. 
$68 6 
08 L 1268 ZIF ZBLISS (BLISS32) 
670 $? ZTHEN 
671 0 EDTSSFMT_STR (.FILE_DESC COSCSA_POINTER], .FILE_DESC CDSCSW_LENGTH]); 
676 U 1271 ZELSE 
67 U 127 EDTSSGET_FNAM (); 
674 7 IFI 
675 74 
676 75 EDTSSFMT_CH (" °); 
67 76 EDTSSFMT_STRCNT (L_COUNT, UPLIT (° Line’), 5); 


—— 


rT 


So 


Be Se Be Se Se Ge Be Se Se Se Se Be Ge Se Ge Be Se Fe Ge Se Se Ge Se Ge Se Se Ge Se Se Be Se Ge Se Ge Se Se Se Se Se Se Se Se Fe Se Se Se ee GHGs Se Seas 
~“ 


NNN 
OWONOAVEWN COON U EWN Oo 0m 


PROMOPOPOPONIMNPININD 2 SO OOO Oe 


write to 
write on 


zo 
oe 
Fee 
cr— 
mn 
ee 


mr 
<£ 
“2D 


tFI 


14 


'¢ 


2FI 


DOOGDOGDOOOO 00000000 OO 0009000000000 08 SI 


DNAS WN 0 OONOA UE WIN 0 OD NOU EWN $9 ODNOU EWN OCONOUESWNOOOnN 0 


END 
ELSE 
BEGIN 


aFI 


a et ce ce a a a a ed 
AANA NNN AAA AAAI AI AI HI AI IIS PPUPIPOPOPUDIPUNIPOPUNIPUNIPONF. PORIPOPOPD 


eh ah ah each tach tach cach cash tach tah tik ch teh tah tah tah tah teal te ee te te ee et et et et et et et et el, et et et et et et ot et ot et et et A) 


ROROREPONONNINUN oe 


N 1 
le 1on=5e 
le 14-Se 
[SGPT CALF () 


fi 
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ED 
EN 


14 
On VMS deallocate all dynamic descriptors used 


ZIF XBLISS (BLISS32) 
ZTHEN 
STRSFREE1_DX (FILE_DESC); 


RETURN (1); 
EN 


File was not closed, output error message. 
' EDTSSFIOPN_ERR (.CLOSEMSG, FILE_DESC); 
On VMS deallocate all dynamic descriptors used 


IF XBLISS (BLISS32) 
RTHEN 
STRStREE1_DX (FILE_DESC); 


RETURN (0); 
END 


File was not created, output error message. 
N EDTSSFIOPN_ERR (.OPNMSG, FILE_DESC); 
On VMS deallocate all dynamic descriptors used 


at ZBLISS (BLISS32) 
STRSFREE1_DX (FILE_DESC); 


RETURN (0); 
END 
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EDTSLWRITE SOT TE FILE - write on a file HL RANGE ° 
vO4=000 WRITE. 0% AC i 03s CALLS #1, EDTSSRNG_REPOS ; sae 
werone 4 at? BF Dood? ail tas nt conc RO 
50 000000006 00 dD Och 1$ TSYL | ApKRO) ? g049 
C AQ D3 00031 oe i : 0950 
SA 8 A 00 9 036 ROVE T2¢ROS, NAME LEN : 0957 
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oe ee a ee 
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$A_WK_CN, RO 
$$G_ABT_WRITE, 30$ 
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$2_EXE_SBLK, RO 
_WORD 
1, 34$ 
RO 
RO 


== | 
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a ee ed ee 


Saye. UPPER_WORD 


5$ 
#10, #1 
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36$: 
g 42%: 
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EDTSLWRITE EDTSLWRITE - write to a file 16-Sep-1984 01:03:3 VAX=-11 Bliss-32 V4.0-74 Page 18 
v04=600 WRITE_FILE = write on a file 1o=8eP 1382 93:93:78 DI KSUMGHASTERSCEOT SRCSLURITE.BLI;1 . (33 
45 11 00208 BRB 48$ : ; 
000000006 : B4 OOODA 45$:  CLRW EDTS$L_IO_VFCHD + 1122 ; 
0 E) MOVL #9, I + 1124 F 
000000006 0 A AG OOCE3 468:  MULW2 #16, EDTSSL_IO_VFCHD : 1126 : 
2 po EA PUSHL | + 1127 : 
19 AE 9F OO2EC PUSHAB DIGIT : ; 
1 AF OF OOZEF PUSHAB LINNO ; : 
000000006 00 0 re Fe CALLS #3, EDTSS$LDIV : ; 
000000006 90 0c AE A F ADDW DiGiT. EDTS$$L_10_VFCHD t 1128 ; 
FFDB 52 FF OF 05 9D ot ACBB. OWS, #=1, I, 48$ + 1126 : 
15 11 00308 BRB 48$ + 1114 ; 
000000006 99 29 80 0 OA 47$: MOVW  SEQ_NUM, EDTS$SL_1I0_VFCHD + 1139 ; 
9 3: 11 ADDL2 SEQ™INCR, S60 NOM + 1140 F 
OOOOFFFF 8F 59 D1 00314 CMPL SEQ“NUN, #65535 + 1142 : 
g2 if 0318 BNEG 48$ : : 
B D4 0031D CLRL SEQ_INCR : 
38 AE 02 80 00 1f 48$:  MOVW #2, RHB DESC + 1149 ; 
C AE 000000006 : 0323 MOVAB EDT$$L_YO_VFCHD, RHB_DESC+4 + 1150 : 
50 000000006 09 DO 00 8 VL EDTS$$A rb + 1151 ; 
20 AE 60 98 00 MOVZBW (RO), STAT_DESC : ; 
24 AE 07 AO 9E 00336 VAB_ 7(ROS, STAT_DESC+4 : 1152 : 
8 AE 9F 0033B PUSHAB RHB_DESC > 115 ; 
4 AE 9F 0033E PUSHAB STAT _DESC : : 
56 DD 00341 PUSHL FILESTRM : : 
000000006 BF DD 00343 PUSHL #EDTS$K_PUT F : 
000000006 00 04 FB 00349 CALLS #4, EDTSSCALLFIO ; : 
57 50 D0 00350 MOVL RO STATUS ; F 
iC 57 EB 00353 LBS STATUS, 5 : 1155 : 
000000006 00 DD 00356 PUSHL EDT$$A_10_FNAM : 1161 : 
000000006 +8F DD 0035 PUSHL #EDT$ ERROUTFIL : F 
000000006 00 x FB 0036 CALLS #2, EDTSSFIOPN_ERR : ; 
000000006 00 1 D0 00369 49$ MOVL #1. EDT$$G_ABT~WRITE + 1164 ; 
15 11 00370 BRB 52§ + 1155 F 
18 AE 06 0372 50$ INCL FIRST_LWORD : 1171 ; 
03 12 0037 BNEQ 51$ : F 
1¢ AE B6 0037 INCW § NEXT_WORD : : 
50 000000006 00 DO 0037A 51$:  MOVL EDTSSA_WK_LN, RO : 1172 ; 
51 0 9A 00381 MOVZBL (RO), Ri : ; 
5A 1 £0 0 ADDL2 1, €_COUNT : ; 
FE74 31 00387 a8: BRW 27$ + 1079 : 
36 000000006 00 €9 A53$:  BLBC  EDTS$G_ABT_WRITE, 56$ > 1184 ; 
7E D4 91 54$:  CLRL  -(SP) + 1187 ; 
34 AE 9F 00393 PUSHAB FILE DESC : ; 
6 OD 36 PUSHL FILESTRM : : 
0000000¢6 BF DD PUSHL #EDTSK CLOSE DEL : : 
000000006 99 4 F 9 CALLS #4, EDTSSCALCFIO : : 
9 D A MOVL RO STATUS : ; 
0c 3 9 BLBS STATUS, 55$ > 1189 : 
30 AE SF OO3AB PUSHAB FILE DESC : ; 
DD Gu3A PUSHL  CLOSEMSG : 3 
000900006 00 FB 0038 CALLS @# EDTSSFIOPN_ERR : : 
000000006 8F DD 00387 55$ PUSHL #EDTS NOFILWRT + 1191 : 
000000006 00 1 re BD CALLS #1, EDTSSFMT_MSG ; ; 
3 C4 BRW 67 > 1195 F 
30 04 Ar E9 003C7 56s BLBC ), 588 : 1205 ; 
6 000000 06 00 00 CB MOVL EDTS$A_CUR BUF, RO > 1208 : 
18 OA 18 AE D1 0030 CMPL 1, 24(R : ; 


Page 19 
$$-32_V j 
file if: sioctgtt T9829 DTSSVMSMASTERSCEDT SRCSLURITE.BLI;1 8% C3 ; 
EDTSLWRITE EDTSLURITE - write to a file 14-Sep- : 
vo4=000 ae, 0D 12 00307 CnPY nigh 1, 28(R0) ot ; 
09 — ; 120 : 
1c AO Me 06 ‘ De EMPL OUNT, 30(RO) (eon 
1e 00 : £4 BEL uKrLD ; 
0an00000s AY 9b GOH srs: FUSh, HOTS, concur. Faas} 
900000006 ! eB FS 6186 ast, eD/s86, EXE. B17 ; 1221 
pooood00s 000000006 6 E9 £08 rege a ee ESTSSSTOP UK INGMSG i 1223 
eooooons 6 BB ARMES sos: EERE SB) ec ; : 
x BE Bb bocoe PUSH a : : 
ooo000006 BF bb O0410 CALLS #&. EDTSSCALLFIO : : 
6 5B poets MOVL RO. STATUS ; 1225 
tance 29 D0 90618 Blas STATUS, 608 1233 
- oo8e 31 00053 Blac | ACSP), 618 : 1236 
04 AE €E9 00426 60$ MOVL EDT$$G_SAV_TIWID, RO 3 : 
$5 00000006 00 D0 O0ceA CMPL  EDTSSG-TI_QID, RO 
30 900000008 00 1 00431 Beal Ss«g1S : 1239 
50 OD Bhe c CALLS Me EDTS$SC_SETWID : 1240 : 
1 =(SP : $ 
0006 00 4 CLRL AGE_LINE : : 
seoepee dri : Bo Boece Bh SSHeGrREEMSGCLIE oe E 
$:  MOVL ED 
13 004 : ; 
30 Dp $0465 CALLS ly EDTSSEM ; 1252 ; 
01 FB 0046 OVL #1, EDT$$G Unie MSG : 1258 : 
SHE seasons Hh FE SHE coe: ERE bia attatt inf 
eens | ae (ae a9¢75 PUSH FILET DESCS4 
DD 00479 PU EDTSSFMT_STR : 1275 ; 
8 09 FB 0047 CALLS 8 ; : 
eae a oe elf 
000000006 00 oy BD O48C at th PAA : 
WR BES Pasar. sae mm) 
F ED ; : 
0000006 49 CALLS 40. EDISS ; 
poaooo00s 90 30 i OF QOGAS 63 PAS: PLC SURSFREET Dx : 1292 ; 
000000006 99 By EB bocac Rove” «#1, RO : 1296 | : 
: 4B0 ' LE DESC | 
30 OA ry 4B1 64%: A reg ELOSERSG : 1315 : 
a iiss] 3 
0 4BS 658: PUSHAB FILE DESC | 
30 AG 9F OO4BB 658: © PUSHAB FILED ee 
8 FREE as, ENS SE ar tmn em bi) 
000000006 00 30 AE 9F O04Ck oF: CALLS” #1 STREFREE?_DX : 1328 ; 
000000006 00 3) be OOdcE 68s: LAL” RO 


WBl=boo © «= GRITEMPILE = writs ono Fite 1$-98071984 (3:99:29 YANsdTAALeHERz HSH SB¢Siuerne.ou1,1"29* BY 
04 00400 RET : | 
; Routine Size: 1233 bytes, Routine Base: _EDTSCODE + 0008 


een 


~N 
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SQN NNN 


NNN 
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wr 


me 


<a 
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-_" 
am 
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- write to a file 
CMD = EXIT Line-mode command 14-Sep-1984 


ZSBTTL “EDTSSEXI_CMD = EXIT Line=-mode command’ 
GLOBAL ROUTINE EDTSSEXI_CMD 
: NOVALUE = 


DISKSVMSMAST 
! EXIT Line-mode command 


"FUNCTIONAL DESCRIPTION: 
Saquene, Grevess ing, pours for exit. butted tot 
vette ee e and set the EDT$$G_EXITD f 
! FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
EDTS$G_RCOV_MOD 
IMPLICIT OUTPUTS: 
EDTS$G_EXITD 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


he main buffer, 
lag 


' 
] 
‘ 
' 
low 
BEGIN 


EXTERNAL ROUTINE 
EDTSSFND_BUF ; 


exte 


LOCAL 
RANGE : NODE_BLOCK; 


'¢ 
: Ignore the EXIT command encountered during recovery. 


IF .EDT$$G_RCOV_MOD THEN RETURN; 
'¢ 
Setup the range as WHOLE. 


RANGE MODE TYPE] = RANGE _NODE; 
RANGE CRAN_TYPE) = RAN_WHOLE; 


1b-sép-19 4 93:03:38 VAX=11 Bi leseze V4 


gOoreg Pa 
:CEDT.SRCILWRITE.BLI;1 


SS 


EDTSLWRITE EDTSLWRITE = write to 1b-5e Sep-1 :3 VAX-11 Bliss-32 V4.0-74 Pp E 
ithe 500 EO Teen CMD = EXIT | Aa Oe command att fi 9}: 3: i$ NT EKSUMEMASTERSCEDT Sac SLURITE.LI:1 aed B V 
; i 8 $ RANGE CPREV_RANGE) = 0; : 
: 790 1388 | Position into the MAIN buffer. : 
: 9 30 EDTSSFND_BUF (UPLIT (STRING ('MAIN')), 4); ; 
: eee ' 38 Attempt to write the file, and set the EXITED flag if it succeeds. ; 
: 796 1394 2 °  EDTS$SG_EXITD = WRITE_FILE (RANGE, 1); : 
; 797 1395 END; ! of routine EDTSSEXI_CMD ‘ 
00409 .BLKB 3 : 
4E 49 41 4D 004DC P.AAB: [ASCII \MAIN\ ; ; 
.EXTRN EDTSSFND BUF. of T886_ EXITD : 
SEXTRN EDTS$$G_RTOV_ : 
0000 0000: ENTRY EDT was cw. Save nothing : 
SE 20 ce 0000 SUBL2 #32 ; 
25 000000006 60 €E8 0000 eoTsse, RCOV_MOD, 1$ : 
6E 0802 8F B80 0000 #2818, “RANGE ; 
14 AE 04 0001 £+20 ; 
04 DD 0001 F 
—E3 AF OF 9001 ; 
000000006 00 02 FB 0001 CALLS WE EDTSSFND_BUF ; 
01 pp 900 PUSHL #1 1394 ; 
04 AE F 000 PUSHAB RANGE : 
FAFE CF 02 FB 000 CALLS #2, WRITE_FILE : 
000000006 60 50 D0 000 MOVL RO, EDT$$G_EXITD 
04 00031 1$: R 1395 


; Routine Size: 50 bytes, Routine Base: _EDTSCODE + 04E0 


; 798 1396 1 


vvoO3z® 

ccror- 

nuvnw<«<w 

z=rrEenm 
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Be Se Be Be Oe Be Be Be Se Se Be Be Be 
a a —~ 
WAU ow 
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K 2 
EDTSLWRITE EDTSLWRITE = write to a file 16-Sep-1984 01:03:3 VAX-11 Bliss-32 V4.0-74 Page 23 ED 
04-000 ED SuR_CRD = WRITE Line-mode command 12-8607} 382 9:93:28 DLSKSVMSMASTERSCEDT. SRCSLWRITE.BLI:1 ’ (33 vO 
$00 ; XSBTTL ‘EDTSSWR_CMD = WRITE Line-mode command’ 
0 GLOBAL ROUTINE EDTSSWR_CMD ! WRITE Line-mode command 
0 : NOVALUE = 
04 
05 1e4 
is FUNCTIONAL DESCRIPTION: 
08 Command processing routine for the write command. Look at the current range; 
809 if it is null, use the whole buffer. Then write the file. 


! FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


EDT$$Z_RNG_ORIGPOS 
EDTSSA_EXE_CURCMD 


' 
' 
i IMPLICIT OUTPUTS: 
EDTSSA_CUR_BUF 
] 

bes 


WALA AAIA AIP PNONPOPINNYD 2 =? 2 SS OS OS SS 
SS St SS SY OOO DOOOOOOOOO -- 


APIO OONO NESW 0 ODNO UE WIN OOD NOAUE WN 0 OONOUSWN OO CONOUSWUN"OV0O~ ww 


! ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
BEGIN 
EXTERNAL ROUTINE 


MEWN (OO OONOUES WN OO ONOUSWN—O 


4 EDTS$RD_CURLN; 

39 EXTER, 

40 EDTSSA_CUR_BUF : REF TBCB BLOCK, 

41 EDT$$Z_RNG_ORIGPOS : POS BLOCK, 

m4! EDT$$A_EXE_CURCMD : REF RODE_BLOCK; ! Pointer to the current command. 
Rea LOCAL 
845 SAV_BUF, ! address of original buffer 

5e6 RANGE : REF NODE_BLOCK; 

48 


RANGE = .EDT$SA_ERE_CORCMD CRANGE1); 

IF (.RANGE CRAN_TYPE) EQL RAN_NULL) THEN RANGE CRAN_TYPE] = RAN_WHOLE; 
i WRITE_FILE (.RANGE, 0); 
; Reposition to the original Line. 


RIPIPOAPIPIPIPIPOPUNYNININPONPININMNINININPIIINYID 8 9 a a nt at Ot SS SS SS SS SS SS SS SS 
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DAMA AIN 
Ounlwn—oo 


©0000 0900 00 CD Co 


SAV_BUF = .EDTS$A_CUR BUF ; ! save original address 
| 


; Routine Size: 


1 
1 !<BLF/PAGE> 


fo ? file 
TE Line=mode command 


ite 
WRI 
S$A_CUR_BUF = .SAV.B 
$tpy" 
$$R 


; 000000006 0 
000000006 
0 4 


A 

1 A 

0 

01 Ad ° 

5 

FACD CF 0 

66 5 

50 6 

000000006 00 0 
000000006 00 0 


Routine Base: _EDTSCODE + 0512 


' i 
PY_MEM (POS_SIZE, UEbrssz _RNG_ORIGPOS, iEDTSSA. 
D_CURLN (); "4 


oO 
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ow 
SOMOWVIMOMD fF OOOO 
Om CoO NOOCO-oCTTTo oO 
FDDOODS LOrwmuUcoomn 
OOOO COOOOOOCOOoOOoOO 
ae 
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PFANMFRODODHEMOEM SF NWO ONO 


Sor198e Q4:08: 26 YMRCDY BLSS4232 86, 0204% eare.oua:s” 


et the buffer address 


URS hain ng 
ne EDTS$WR_CMD 


EDTSSRD_CURLN 
SWR yg Save ght. R3,R4,R5,R6 


$A UF, 
$A “CUR “BUF, hy BUF 
An “EXEC CURCMD, R 
Ie RANGE 


Ge) 
1 (RANGE) 


we SFOMMMM 


#14, EDTS$Z_ RNG_ORIGPOS, (RO) 
#0, EDTSSRD- ~CUREN 


M m3 
EDTSLWRITE EDTSLWRITE = write to a file Sep 4 :3 VAX-11 BLi 5 
Vous EDTSSUR_ CRD - WRITE Ulne-node command 1228 Sep 71382 9}: 83: i$ DISKSVMSMA ERSCEDTS OSRCSLURITE. BLI;1 head (B 
; 864 1460 1 END ! of module EDTSLWRIT 
bss 1290 | of module EDTSLWRITE 
; 866 1462 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 1361 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
2 el eee ae Soe sk Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CEDT.SRCIJEDT.L32;1 377 109 28 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; —$255$DUA28:CSYSLIBISTARLET.L32;1 9776 7 0 581 00:04.1 
; ~$255$DUA28:CEDT. SRCJSUPPORTS.«L $2; 1 2 1 50 5 00:00.2 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LWRITE/OBJ=OBJ$:LWRITE MSRC$:LWRITE.BLI/UPDATE=(ENHS:LWRITE) 
3; Size 1346 code + 15 data bytes 
3; Run Time 01:00.3 
: Elap be tines 01:15. 
5 Lines/CPU Min: 1454 
3 Lonones/<PUAin: 7386 
3 Used: 354 pages 


Comp tlotton Complete 


VAX/VMS V4.0 


0136 AH-BT13A-SE. 


PMENT CORPORATION 
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